setdisplay(320,200,32,1):paper(8^8-1):ink(0):pen(0):cls
a$=chr$(64+8)+chr$(96+5)+chr$(96+12)+chr$(96+12)+chr$(96+15)+chr$(33)
prints(a$)
waitkey